4 |
How can I fit or ensure that all elements are in the control's client area
With SwimLane1 With .Elements .Add("Element A",-500,-500).BackColor = RGB(0,255,0) .Add("Element B",500,500).BackColor = RGB(255,0,0) .Add "Element C",48,24 End With .FitToClient End With |
3 |
Context Menu - Microsoft Windows 8.1 - Ribbon Like
With SwimLane1 .BeginUpdate With .VisualAppearance .Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn" .Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn" .Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn" .Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn" .Add 17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn" .Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn" .Add 30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn" .Add 31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn" .Add 32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn" .Add 33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn" .Add 34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn" .Add 35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn" End With .Background(exContextMenuAppearance) = &H1000000 .Background(exToolTipAppearance) = &H1fefefe .Background(exContextMenuSelBackColor) = &He000000 .Background(exToolBarAppearance) = &H1000000 .Background(exToolBarBackColor) = RGB(255,255,255) .Background(exToolBarButtonHotBackColor) = &Hc000000 .Background(exToolBarButtonDownBackColor) = &He000000 .Background(exContextMenuHotBackColor) = &Hc000000 .Background(exContextMenuSelHotBackColor) = &H23000000 .Background(&H2) = &H22000000 .Background(&H3) = &H23000000 .Background(exCheckBoxState0) = &H20000000 .Background(exCheckBoxState1) = &H21000000 .Background(exRadioButtonState0) = &H1e000000 .Background(exRadioButtonState1) = &H1f000000 .EndUpdate End With |
2 |
Context Menu - Microsoft Paint - Ribbon Like
With SwimLane1 .BeginUpdate With .VisualAppearance .Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn" .Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn" .Add 3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn" .Add 4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn" .Add 5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn" .Add 6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn" .Add 7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn" .Add 8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn" .Add 9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn" .Add 10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn" .Add 11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn" .Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn" .Add 13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn" .Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn" .Add 15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn" .Add 16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn" .Add 17,"CP:16 0 0 0 1" .Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn" .Add 19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn" .Add 20,"CP:19 0 0 0 1" End With .Background(exContextMenuAppearance) = &H1000000 .Background(exContextMenuForeColor) = RGB(21,66,139) .Background(exContextMenuSelBackColor) = &He000000 .Background(exToolTipAppearance) = &H1fefefe .Background(exToolBarAppearance) = &H1000000 .Background(exToolBarBackColor) = RGB(255,255,255) .Background(exToolBarButtonHotBackColor) = &Hd000000 .Background(exToolBarButtonDownBackColor) = &H1000000 .Background(&H2) = &Hd000000 .Background(exContextMenuGroupPopupFrameSingle) = &H5000000 .Background(exContextMenuGroupPopupFrameHStart) = &H6000000 .Background(exContextMenuGroupPopupFrameHIntermediate) = &H7000000 .Background(exContextMenuGroupPopupFrameHEnd) = &H8000000 .Background(exContextMenuGroupPopupFrameVStart) = &H9000000 .Background(exContextMenuGroupPopupFrameVIntermediate) = &Ha000000 .Background(exContextMenuGroupPopupFrameVEnd) = &Hb000000 .Background(exContextMenuHotBackColor) = &Hc000000 .Background(exContextMenuSelHotBackColor) = &Hf000000 .EndUpdate End With |
1 |
Context Menu - Microsoft Office - Ribbon Like
With SwimLane1 .BeginUpdate With .VisualAppearance .Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn" .Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn" .Add 3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn" .Add 4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn" .Add 5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn" .Add 6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn" .Add 7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn" .Add 8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn" .Add 9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn" .Add 10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn" .Add 11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn" .Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn" .Add 13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn" .Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn" .Add 15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn" .Add 16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn" .Add 17,"CP:16 0 0 0 1" .Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn" .Add 19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn" .Add 20,"CP:19 0 0 0 1" End With .Background(exContextMenuAppearance) = &H1000000 .Background(exContextMenuForeColor) = RGB(21,66,139) .Background(exToolTipAppearance) = &H1fefefe .Background(exToolBarAppearance) = &H1000000 .Background(exToolBarBackColor) = RGB(255,255,255) .Background(exToolBarButtonHotBackColor) = &Hd000000 .Background(exToolBarButtonDownBackColor) = &H1000000 .Background(&H2) = &Hd000000 .Background(&H3) = &H1000000 .Background(exContextMenuGroupPopupFrameSingle) = &H5000000 .Background(exContextMenuGroupPopupFrameHStart) = &H6000000 .Background(exContextMenuGroupPopupFrameHIntermediate) = &H7000000 .Background(exContextMenuGroupPopupFrameHEnd) = &H8000000 .Background(exContextMenuGroupPopupFrameVStart) = &H9000000 .Background(exContextMenuGroupPopupFrameVIntermediate) = &Ha000000 .Background(exContextMenuGroupPopupFrameVEnd) = &Hb000000 .Background(exContextMenuHotBackColor) = &Hc000000 .Background(exContextMenuSelBackColor) = &He000000 .Background(exContextMenuSelHotBackColor) = &Hf000000 .EndUpdate End With |